home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Devices / NuBus⁄Slot Manager / NuBusTester / NuBusTest.p < prev    next >
Encoding:
Text File  |  1992-08-14  |  666 b   |  28 lines  |  [TEXT/MPS ]
  1. {[j=15-/40]}
  2. {$R-}
  3. PROGRAM NuBusTest;
  4. { This program determines whether or not this machine can deal with NuBus cards
  5.  that put their declaration ROM in the high part of the card’s 16M address
  6.  space. Specifically, it checks to see if the machine is running ROM 78, and if
  7.  so, whether or not the rom version is later than 1.0 (i.e. has a DeclROM) }
  8.  
  9.     USES
  10.             Memtypes, Quickdraw, OSIntf, ToolIntf, PackIntf, nbTestIntf;
  11.  
  12.     PROCEDURE _DataInit;
  13.         EXTERNAL;
  14.  
  15.     BEGIN
  16.         UnLoadSeg(@_DataInit);
  17.         InitGraf(@thePort);
  18.         InitFonts;
  19.         FlushEvents(everyEvent, 0);
  20.         InitWindows;
  21.         InitMenus;
  22.         TEInit;
  23.         InitDialogs(NIL);
  24.         InitCursor;
  25.  
  26.         IF CheckNuBus THEN {Nothing} ;
  27.     END.
  28.